home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / PCTV3N5 / VBMIDI.ZIP / GLOBAL.BAS < prev    next >
BASIC Source File  |  1992-10-08  |  514b  |  14 lines
  1. ' Listing 1
  2.  
  3. Declare Function midiOutOpen Lib "mmsystem" (handle As Integer, ByVal id As Integer, ByVal callback As Long, ByVal dwinstance As Long, ByVal flags As Long) As Integer
  4. Declare Sub midiOutClose Lib "mmsystem" (ByVal handle As Integer)
  5. Declare Function midiOutShortMsg Lib "mmsystem" (ByVal handle As Integer, ByVal message As Long) As Long
  6.  
  7. Global hMidi As Integer
  8. Global istatus As Integer
  9. Global ichannel As Integer
  10. Global idata1 As Integer
  11. Global ldata2 As Long
  12. Global lmessage As Long
  13.  
  14.